home *** CD-ROM | disk | FTP | other *** search
/ Digital Photo Book 16: Sister 7 / Digital Photo Book 16: Sister 7.iso / mac / DATA / main.dir / 00013_Script_FILEOPEN < prev    next >
Text File  |  2004-11-21  |  717b  |  34 lines
  1. property openfilename
  2. global config
  3.  
  4. on mouseup
  5.   nn = config["PDF_NAME"]
  6.   if voidP(nn) then
  7.     nn = openfilename
  8.   end if
  9.   
  10.   n = xtra("FileXtra4").new()
  11.   if the platform contains "Mac" then
  12.     app = n.fx_FileGetAppPath("PDF CARO")    
  13.   else
  14.     app = n.fx_FileGetAppPath(".pdf")
  15.   end if
  16.   n = 0
  17.   
  18.   if not ( app = "") then
  19.     if app.char[1] = QUOTE then
  20.       app = app.char[2..length(app)-1]
  21.     end if      
  22.     open nn with app
  23.   end if
  24. end
  25.  
  26. on getPropertyDescriptionList
  27.   p = [:]
  28.   p[#openfilename] = [:]
  29.   p[#openfilename][#comment] = "腴ﾇ宰tﾉ@ﾉCﾉ" 
  30.   p[#openfilename][#format] = #string
  31.   p[#openfilename][#default] = ""
  32.   
  33.   return p
  34. end getPropertyDescriptionList